. SLOT MACHINE
. BY AL ROGINSKY
. ARCADIAN
. JUNE 11, 1982: 79
1 .
5 clear ;NT=0;BC=0;FC=127
10 print "$$$$$$$$$$$$$$";print " SLOT MACHINE";print "$$$$$$$$$$$$$$
20 E=rnd (10)mul 5
100 &(9)=22;&(0)=0;&(1)=0;&(2)=5;&(3)=5
110 box 35,0,40,60,1;box 35,30,30,10,1;box 35,-33,54,5,1
120 box 57,5,4,9,1;box 60,5,3,3,1;box 63,16,2,25,1;box 64,28,5,4,1
130 gosub 1090
140 box 35,-17,32,26,2;box 35,-17,30,24,1;box 35,-20,28,14,2
150 CY=12;CX=-59;print "YOU HAVE";print " $",#0,E
155 if E=0box -38,-10,83,60,2;CY=0;print "YOU'RE BUSTED";STOP
160 print ;print "INSERT COIN/S
170 B=KN(1)div 50;B=B+3;CY=-20;print #7,B;if TR(1)=0goto 170
180 E=E-B;CY=4;print "     $",#0,E
190 gosub 1080
200 if E<0E=E+B;goto 150
290 CX=-77;CY=-16;print " PULL HANDLE";if JY(1)=0goto 290
295 CY=-20;CX=28;print "   "
296 gosub 1090;gosub 1080
300 for A=28to 7step -1
310 box 64,A,5,4,1
320 box 64,A+4,5,4,2
330 next A
400 for A=6to 28
410 box 64,A,5,4,1
420 box 66,A-4,5,4,2
440 next A
1000 Z=1500;CY=18;S=27;for A=1to 3;gosub 1100;next A
1010 S=36;for A=1to 2;gosub 1200;next A;S=45;for A=1to 2;gosub 1300;next A
1020 goto 2000
1080 box -42,-18,77,37,2;return 
1090 box 35,18,30,10,2;return 
1100 CX=S;gosub Z;J=I;CX=S+9;gosub Z;CX=S+18;gosub Z;return 
1200 CX=S;gosub Z;K=I;CX=S+9;gosub Z;return 
1300 CX=S;gosub Z;L=I;return 
1500 R=rnd (100)
1510 if R>80TV=47;box CX-8,CY-2,2,2,1;box CX-5,CY-1,2,2,1;I=1
1520 if R>62if R<81TV=98;box CX-7,CY,5,5,3;I=2
1530 if R>47if R<63TV=48;box CX-7,CY,3,5,1;I=3
1540 if R>36if R<48TV=96;box CX-7,CY,3,5,3;I=4
1550 if R>21if R<37TV=43;box CX-7,CY,3,3,1;I=5
1560 if R>10if R<22box CX,CY,7,9,2;box CX,CY,6,3,1;I=6
1570 if R>5if R<11TV=61;box CX-7,CY,1,5,1;box CX-7,CY,3,1,1;I=7
1580 if R<6TV=98;box CX-7,CY,5,5,3;box CX-7,CY,1,7,3;I=0
1600 return 
2000 if J=1M=2;if K=1M=5;if L=1M=10
2010 if J=2if K=2if (L=2)+(L=6)M=10
2020 if J=3if K=3if (L=3)+(L=6)M=15
2030 if J=4if K=4if (L=4)+(L=6)M=20
2040 if J=5if K=5if (L=5)+(L=6)M=15
2050 if J=6if K=6if L=6M=25
2060 if J=7if K=7if L=6M=50
2070 if J=7if K=7if L=7M=100
2080 if M CY=-20;CX=28;print #0,Mmul B
2090 M=Mmul B;E=E+M
2100 M=0;goto 150
:return ;run 
